home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / N-O / Old MacDonald FREE.cpt / Old MacD for FREE! ƒ / Old MacD for FREE ! / stack_-1.xml < prev    next >
Extensible Markup Language  |  1991-11-01  |  4KB  |  16 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in</name>
  5.     <id>-1</id>
  6.     <cardCount>42</cardCount>
  7.     <cardID>3827</cardID>
  8.     <listID>4017</listID>
  9.     <cantModify><true /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>512</width>
  14.         <height>342</height>
  15.     </cardSize>
  16.     <script>on openStackgo to card id 3827set the cursor to 73hide msghide menuBar--show card button id 18play PIANO TEMPO 250 "c c c g3 a a g3h"play PIANO TEMPO 250 "e e d d ch rq."wait until the sound is "done"FLASHITset the cursor to 73end openStackon FLASHITplay "click here"repeat 3set the style of  card field id 23 to transparenthide  card field id 23set the style of  card field id 23 to shadowshow  card field id 23end repeatEND FLASHITON THAZITHCBALLOON "Good !"&return&return&¬¨"You found the word for ''"&the short name of this card&"'' !!"&return&return&¬¨"Now, just click on the word !!!"end THAZITon closeStackget freeSize of this stackif it > 5 then COMPRESSelse exit closeStackend closeStackon NOTHINanswer "As you can see, nothing much happen "&¬¨"by clicking on the picture ... "&return&return&¬¨"We want to find a word (in the words above) "&¬¨"that describes this picture."&return&return&¬¨"Find that word and click on it ... !" with "OK"end NOTHINon NOTHIN2HCBalloon "Nothing much will happen if you click here ... "&return&return&¬¨"We want to find a word (in the words above) "&¬¨"that describes this picture."&return&return&¬¨"Find that word and click on it ... !",100,75,5end NOTHIN2on homeUpanswer "Exit this demonstration of Hannah's House?"&return&return&¬¨"You can : "&return&return&¬¨"1) Go to your own ''Home'' stack"&return&¬¨"    (click ''Go Home''),"&return&return&¬¨"2) Return to where you were "&return&¬¨"    in ''Old MacD for FREE!''"&return&¬¨"    (click ''Old MacD'') or,"&return&return&¬¨"3) Cancel this operation"&return&¬¨"    (click ''Cancel'')." with "Go Home" or "Old MacD" or "Cancel"if it is "Cancel" then exit homeUpelseif it is "Go Home"thenset the cursor to 4 -- watchwait until the sound is doneplay "comeback"visual dissolve to greyvisual dissolvego homeelseif it is "Old MacD"thenset the cursor to 4 -- watchwait until the sound is doneplay "comeback"visual dissolve to greyvisual dissolvepop cardend ifend ifend ifend homeUpon homeWithinHCBalloon "Click here to return to your own ''Home stack'' or "&¬¨"to return to where you left off in ''Old MacD for FREE!''."&return&return&¬¨"This will also end this demonstration of ''Hannah's House''.",0,0end homeWithinon helpUpPLAY "Hi"answer "In the ''real'' series, you could click the ''ABOUT'' button "&¬¨"for more information about this module."&return&return&¬¨"For this ''visit'', the button "&¬¨"does nothing but show this screen "&¬¨"when you click it."end helpUpon helpWithinHCBalloon "In the ''real'' series, you could click this button "&¬¨"for more information about this module."&return&return&¬¨"For this ''visit'', the button "&¬¨"does nothing but show another screen "&¬¨"when you click it.",5,5,0end HelpWithinon wordUpanswer "This is a ''Magic Word''."&return&return&¬¨"We say it all the time at Hannah's House !" with "That's Good !"end wordUpon wordWithinHCBalloon "This is a ''Magic Word''."&return&return&¬¨"We say it all the time at Hannah's House !"end wordWithinon COMPRESSglobal AUTOCOMPACTplay "CP?"answer "Hannah asks ''Is it OK to COMPACT this stack?''" with "Cancel" or "OK"if it is "OK" then CPITend COMPRESSon CPITGLOBAL CANTMODIFY,USERLEVEL,STACKSINUSE,BEINGUSEDget the stacksInUseput it into msgput msg into BEINGUSEDif BEINGUSED contains (the short name of this stack) then stop us